%
% This is the setupfig.m used only for mySST
%
% 2011-09-09 Hau-tieng Wu
%


scrsz = get(0,'ScreenSize');

for QQQQ=1:Yno*Xno
    eval(['h',num2str(QQQQ),'=subplot(',num2str(Yno),',',num2str(Xno),',',num2str(QQQQ),');']);
end

for QQQQ=1:Yno*Xno
    eval(['p',num2str(QQQQ),'=get(h',num2str(QQQQ),',''pos''',');']);
end

if Yno > 1
    SHIFT=eval(['p1(2)-p',num2str(1+Xno),'(2)-0.01;']);
else
    SHIFT = p1(4);
end

if Xno == 2;
    WIDTH1=0.6; WIDTH2=0.32;
    LEFT1=0.06; LEFT2=0.008;
elseif Xno == 1;
    WIDTH1=0.92; WIDTH2=0;
    LEFT1=0.06; LEFT2=0;
end

downSHIFT=0.05;

for QQQQ=1:Yno
    for jj=1:Xno
        eval(['p',num2str((QQQQ-1)*Xno+jj),'(4)=SHIFT;']);
        eval(['p',num2str((QQQQ-1)*Xno+jj),'(2)=p',num2str((QQQQ-1)*Xno+jj),'(2)-downSHIFT;']);
        eval(['p',num2str((QQQQ-1)*Xno+jj),'(3)=WIDTH',num2str(jj),';']);
    end
end

for QQQQ=1:Yno
  for jj=1:Xno
    eval(['p',num2str((QQQQ-1)*Xno+jj),'(1)=LEFT1+(WIDTH1+LEFT2)*',num2str(jj-1),';']);
  end
end

for QQQQ=1:Yno*Xno
    eval(['set(h',num2str(QQQQ),',''pos'',p',num2str(QQQQ),');']);
end
